object SP: TSP
  OldCreateOrder = False
  Left = 463
  Top = 180
  Height = 550
  Width = 488
  object NewSP: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$PROCEDURES'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 40
  end
  object OldSP: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$PROCEDURES'#13#10'where RDB$PROCEDURE_NAME=:PNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PNAME'
        ParamType = ptInput
        Value = 'xxx'
      end>
    SQLConnection = DM.OldDB
    Left = 176
    Top = 40
  end
  object NewSPParam: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'select * from RDB$PROCEDURE_PARAMETERS WHERE RDB$PROCEDURE_NAME=' +
      ':PNAME and RDB$PARAMETER_TYPE=:PTYPE order by RDB$PARAMETER_NUMB' +
      'ER'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PNAME'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PTYPE'
        ParamType = ptInput
        Value = '1'
      end>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 120
  end
  object OldSPParam: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'select * from RDB$PROCEDURE_PARAMETERS '#13#10'WHERE RDB$PROCEDURE_NAM' +
      'E=:PNAME and RDB$PARAMETER_TYPE=:PTYPE'#13#10'order by RDB$PARAMETER_N' +
      'UMBER'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PNAME'
        ParamType = ptInput
        Value = 'XXX'
      end
      item
        DataType = ftInteger
        Name = 'PTYPE'
        ParamType = ptInput
        Value = 1
      end>
    SQLConnection = DM.OldDB
    Left = 176
    Top = 120
  end
  object NewSPFields: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$FIELDS where RDB$FIELD_NAME=:FNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'FNAME'
        ParamType = ptInput
        Value = 'XXX'
      end>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 208
  end
  object OldSPFields: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$FIELDS where RDB$FIELD_NAME=:FNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'FNAME'
        ParamType = ptInput
        Value = 'XXX'
      end>
    SQLConnection = DM.OldDB
    Left = 176
    Top = 208
  end
  object NewSPDep: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'select * from RDB$DEPENDENCIES WHERE RDB$FIELD_NAME IS NULL and ' +
      'RDB$DEPENDENT_NAME=:SPNAME and RDB$DEPENDED_ON_TYPE=:DEPTYPE ord' +
      'er by RDB$DEPENDED_ON_NAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'SPNAME'
        ParamType = ptInput
        Value = 'XXX'
      end
      item
        DataType = ftInteger
        Name = 'DEPTYPE'
        ParamType = ptInput
        Value = '5'
      end>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 296
  end
  object SrchNewSP: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$PROCEDURES'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 384
  end
  object SrchOldSP: TSQLDataSet
    GetMetadata = False
    CommandText = 'select * from RDB$PROCEDURES'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.OldDB
    Left = 183
    Top = 384
  end
end
